MkDir procedure

  DECLARATION:  MkDir(s : String);

      PURPOSE:  Creates a subdirectory

         UNIT:  System

      REMARKS:  Where s is a string-type expression, a new subdirectory
                with the specified path is created.  The last item in the
                path cannot be an existing filename.

                NOTE: With {$I-}, errors are returned through IOResult